home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / games / misc / pyramidgame / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1978-02-21  |  29KB  |  500 lines
  1. Close Workbench : Close Editor : Break Off 
  2. Screen Open 0,320,256,2,Lowres
  3. Flash Off : Curs Off : Hide On 
  4. Unpack 15 To 0
  5. Load Iff "Pdisk1:Diskscreen"
  6. While Not Fire(1) : Wend : Fade 4 : Wait 200
  7. Dim MEANIE(5)
  8. HEREWEGO:
  9. Hide On : UNP=15 : DISP
  10. Load "Pdisk2:Music1.abk"
  11. UNP=2 : DISP
  12. Double Buffer : Led Off : Music 1
  13. A$="AUtotest(Let R1=Vu(R0)*3; If R1=0 eXit else Direct Start)"
  14. A$=A$+"Start: Let R2=R1; Let Y=RA-R1/3+40; Anim 4,(127,1)(126,2)(125,2)(124,2)(125,2)(126,2)(127,1); Pause;"
  15. A$=A$+"Move 0,R2/3,RB*2; Wait;"
  16. Amreg(0)=90 : Amreg(1)=25
  17. For N=0 To 3 : Bob N,N*24+423,Amreg(0),127 : Channel N To Bob N
  18. Amal N,"Let R0="+Str$(N)+A$ : Limit Bob 0,0 To 640,110 : Amal On N : Next N : Shift Down 3,26,31,1
  19. TITLELOOP:
  20. Screen Offset 0,0,0
  21. For T=1 To 300 : Wait 1 : If Fire(1) Then Goto TITLEEN
  22.    If Inkey$=" " Then Goto RULES
  23. Next T
  24. Screen Offset 0,300,0
  25. For T=1 To 300 : Wait 1 : If Fire(1) Then Goto TITLEEN
  26.    If Inkey$=" " Then Goto RULES
  27. Next T
  28. Goto TITLELOOP
  29. TITLEEN:
  30. Shift Off : Fade 4 : For T=63 To 0 Step -1 : Mvolume T : Wait 1 : Next T : Music Off : Mvolume 63
  31. For T=0 To 3 : Amal Off T : Bob Off T : Next T : Cls 0,0,0 To 640,256
  32. Unpack 15 To 0 : Wait 10 : Hide On 
  33. Load "Pdisk2:samples.abk",3 : Sam Bank 3
  34. REDDY
  35. BONUS=1 : SCORE=0 : GATE1=3 : GATE2=3 : LIVES=3 : X1=160 : Y1=70 : LEV=1 : SH=1
  36. STRT:
  37. BON1=0
  38. DMND=1 : If SH=46 Then X1=150 : Y1=220
  39. MAP
  40. If SH=1 or SH=23 or SH=27 or SH=41 Then UNP=5 : DISP
  41. If SH=4 or SH=15 or SH=24 or SH=43 Then UNP=6 : DISP
  42. If SH=8 or SH=16 or SH=20 or SH=32 or SH=36 Then UNP=7 : DISP : Shift Up 3,28,31,1
  43. If SH=6 or SH=11 or SH=26 or SH=40 Then UNP=8 : DISP
  44. If SH=2 or SH=10 or SH=18 or SH=30 or SH=34 Then UNP=9 : DISP : Shift Up 5,28,31,1
  45. If SH=3 or SH=7 or SH=19 or SH=31 or SH=35 Then UNP=10 : DISP : Shift Down 3,26,31,1
  46. If SH=12 or SH=42 or SH=14 or SH=37 or SH=45 Then UNP=11 : DISP
  47. If SH=13 or SH=28 or SH=38 Then UNP=12 : DISP
  48. If SH=9 or SH=17 or SH=21 or SH=29 or SH=33 Then UNP=13 : DISP : Shift Down 8,28,31,1
  49. If SH=5 or SH=22 or SH=25 or SH=39 or SH=44 Then UNP=14 : DISP
  50. If SH=46 Then UNP=16 : DISP
  51. Double Buffer 
  52. If SH<46 and GATE1>0 Then LEFTGATE
  53. If SH<46 and GATE2>0 Then RIGHTGATE
  54. MANAPPEAR
  55. Wait 100 : MIDDLEGATE
  56. While Chanmv(15) : Wend 
  57. If SH<46 Then DIAMOND
  58. MANMOVE
  59. If SH=2 or SH=6 or SH=19 Then MEANIES1
  60. If SH=3 or SH=4 or SH=18 Then MEANIES2
  61. If SH=1 or SH=24 or SH=25 or SH=26 Then MEANIES3
  62. If SH=29 or SH=32 or SH=35 or SH=39 or SH=42 or SH=45 Then MEANIES4
  63. If SH=31 or SH=34 or SH=38 or SH=41 or SH=44 Then MEANIES5
  64. If SH=8 or SH=11 or SH=14 or SH=28 Then MEANIES6
  65. If SH=9 or SH=12 or SH=15 or SH=22 Then MEANIES7
  66. If SH=30 or SH=33 or SH=36 or SH=37 or SH=40 or SH=43 Then MEANIES8
  67. If SH=5 or SH=7 or SH=10 or SH=23 or SH=27 Then MEANIES9
  68. If SH=13 or SH=16 or SH=17 or SH=20 or SH=21 Then MEANIES10
  69. If SH=46 Then MUMMY : CAUGHT=0
  70. MUM=50 : CAUGHT=0 : For T=1 To 5 : MEANIE(T)=0 : Next T
  71. MAIN:
  72. Limit Bob 0,0 To 256,256
  73. For T=1 To 5 : If MEANIE(T)=2 Then FRESH=T : Gosub NEWMEANIE
  74. Next T
  75. If Joy(1)>15 and Not Chanan(4) Then LASER
  76. If BON1=2 and Not Chanmv(12) Then Amal Off 12 : BON1=0
  77. If Bob Col(15,12 To 12) and BON1=1 Then BONUS2
  78. If BON1=0 and GATE1>0 and GATE2>0 and SH<46 Then BONUS
  79. If Bob Col(15,6 To 10) Then Gosub DEAD
  80. If Bob Col(15,13 To 13) Then Gosub DEAD
  81. If Bob Col(15,3 To 3) Then Gosub DEAD
  82. If Bob Col(15,5 To 5) and CAUGHT=0 Then CATCHDIAMOND
  83. If Bob Col(15,5 To 5) and CAUGHT=1 and Chanan(5) Then DIAMONDCRUMBLE
  84. If(Bob Col(5,6 To 10) or Bob Col(5,3 To 3)) and CAUGHT<2 Then Gosub DIAMALIEN
  85. If CAUGHT=2 and Not Chanan(5) Then CAUGHT=0 : DIAMOND
  86. If CAUGHT<2 and Bob Col(4,5 To 5) Then Amal Off 4 : Bob Off 4 : DIAMONDCRUMBLE
  87. For T=1 To 5 : If Bob Col(4,T+5 To T+5) and MEANIE(T)=0 Then SHOT=T : Gosub MEANIEDEAD
  88. Next T
  89. If Bob Col(5,1 To 1) and Chanan(5) Then GATE1=GATE1-1 : Amal Off 5 : Sam Play 9,2,10000 : CAUGHT=0 : DIAMOND : If GATE1=0 Then Amal Off 1 : Bob Off 1
  90. If Bob Col(5,2 To 2) and Chanan(5) Then GATE2=GATE2-1 : Amal Off 5 : Sam Play 9,2,10000 : CAUGHT=0 : DIAMOND : If GATE2=0 Then Amal Off 2 : Bob Off 2
  91. If Amreg(2)>210 and Amreg(1)>45 and Amreg(1)<55 and GATE1=0 Then SHEETDONE : Goto STRT
  92. If Amreg(2)>210 and Amreg(1)>171 and Amreg(1)<180 and GATE2=0 Then SHEETDONE : Goto STRT
  93. If SH=46 and Bob Col(4,13 To 13) Then MUM=MUM-1 : Amal Off 4 : Bob Off 4
  94. If MUM<1 Then MUMMYDIE : Goto HEREWEGO
  95. Wait 1 : Goto MAIN
  96. Procedure BONUS
  97.    Shared BONUS,BON1
  98.    Bob 12,118,-50,134+BONUS : Channel 12 To Bob 12 : Amal 12,"Loop: Let Y=-50; M 0,0,1200; M 0,360,270; Jump Loop" : Amal On 12
  99.    BON1=1
  100. End Proc
  101. Procedure BONUS2
  102.    Shared SCORE,LIVES,BONUS,BON1
  103.    Amal Off 12 : Channel 12 To Bob 12
  104.    If BONUS<3 Then Amal 12,"A0,(143,1); M 0,-40,20; A0,(27,1)" : Amal On 12 : SCORE=SCORE+200
  105.    If BONUS>2 and BONUS<6 Then Amal 12,"A0,(144,1); M 0,-40,20; A0,(27,1)" : Amal On 12 : SCORE=SCORE+500
  106.    If BONUS>5 and BONUS<8 Then Amal 12,"A0,(145,1); M 0,-40,20; A0,(27,1)" : Amal On 12 : SCORE=SCORE+1000
  107.    If BONUS>7 Then Amal 12,"A0,(146,1); M 0,-40,20; A0,(27,1)" : Amal On 12 : LIVES=LIVES+1
  108.    Sam Play 15,2,4000 : BONUS=BONUS+1 : If BONUS>8 Then BONUS=1
  109.    BON1=2
  110. End Proc
  111. DIAMALIEN:
  112. ALHIT=0
  113. For T=6 To 10 : If Bob Col(T,5 To 5) Then ALHIT=T-5
  114. Next T : If ALHIT=0 or MEANIE(ALHIT)=2 Then Return 
  115. DIAMONDCRUMBLE
  116. Return 
  117. DEAD:
  118. ALHIT=0
  119. If Bob Col(15,3 To 3) or Bob Col(15,13 To 13) Then Goto DEAD2
  120. For T=6 To 10 : If Bob Col(T,15 To 15) Then ALHIT=T-5
  121. Next T : If ALHIT=0 or MEANIE(ALHIT)=2 Then Return 
  122. DEAD2:
  123. A=Amreg(1) : B=Amreg(2)
  124. Wait Vbl : Amal Off 15
  125. Channel 15 To Bob 15 : Amal 15,"Let RB=X; Let RC=Y; A0,(1,3)(2,3); For R0=1 To 80; Next R0; A0,(86,1); For R0=1 To 50; Next R0; M 0,300,150"
  126. Bob 14,100,50,109 : Channel 14 To Bob 14 : Amal 14,"Let RD=0; A10,(109,4)(110,4); For R0=1 To 80;Next R0; Let X=RB; Let Y=RC; A0,(111,3)(112,3)(113,3)(112,3); M 0,-300,150; Let RD=1" : Amal On 15 : Wait 1 : Amal On 14
  127. For T=5000 To 20000 Step 3000
  128.    Sam Play 15,3,T
  129. Wait(25000-T)/1000 : Next T
  130. Wait 5 : While Amreg(3)=0 : Wend 
  131. Wait 20 : Shift Off : Fade 1 : Wait 20 : For T=0 To 15 : Amal Off T : Bob Off T : Next T : LIVES=LIVES-1
  132. If LIVES=0 Then Pop : Goto GAMEOVER
  133. Pop : Goto STRT
  134. MEANIEDEAD:
  135. Amal Off SHOT+5 : Amal Off 4 : Bob Off 4
  136. Amal SHOT+5,"A1,(13,3)(14,3)(15,3)(16,3)(17,3)(18,3)(19,3)(20,3)(21,3)(22,3)(23,3)(24,3)(25,3)(26,3)(87,3)(88,3)(89,3)(88,3)(87,3)(88,3)(89,3)(88,3)(87,3)(88,3)(89,3)(27,3); For R0=1 To 78; Next R0"
  137. Amal On SHOT+5 : Sam Play 6,4,4000 : MEANIE(SHOT)=2 : SCORE=SCORE+50 : Wait Vbl : Return 
  138. NEWMEANIE:
  139. If Chanan(FRESH+5) Then Return 
  140. If FRESH=1 Then H$=C$
  141. If FRESH=2 Then H$=D$
  142. If FRESH=3 Then H$=E$
  143. If FRESH=4 Then H$=F$
  144. If FRESH=5 Then H$=G$
  145. Amal Off FRESH+5 : Wait 1 : Bob(FRESH+5),-50,-50,27 : Channel(FRESH+5) To Bob(FRESH+5) : Amal(FRESH+5),H$ : Amal On(FRESH+5) : MEANIE(FRESH)=0 : Wait Vbl : Return 
  146. Procedure MANAPPEAR
  147.    Bob 15,115,-50,1
  148.    Channel 15 To Bob 15
  149.    Amal 15,"A0,(1,1); M 0,150,150"
  150.    Amal On 15
  151. End Proc
  152. Procedure LEFTGATE
  153.    Bob 1,48,231,8 : Channel 1 To Bob 1 : Amal 1,"A0,(8,3)(9,3)(10,3)(11,3)(12,3)" : Amal On 1
  154. End Proc
  155. Procedure RIGHTGATE
  156.    Bob 2,174,231,8 : Channel 2 To Bob 2 : Amal 2,"A0,(12,3)(11,3)(10,3)(9,3)(8,3)" : Amal On 2
  157. End Proc
  158. Procedure MIDDLEGATE
  159.    Bob 0,114,7,8 : Channel 0 To Bob 0 : Amal 0,"A0,(12,3)(11,3)(10,3)(9,3)(8,3)" : Amal On 0
  160. End Proc
  161. Procedure MANMOVE
  162.    Channel 15 To Bob 15 : A$="Let RD=1; A: P; Let RB=X; Let RC=Y; If Y>210 Jump L; "
  163.    A$=A$+"K: If Y<24 Jump M; "
  164.    A$=A$+"P: If X<18 Jump N; "
  165.    A$=A$+"Q: If X>208 Jump O; "
  166.    A$=A$+"R: Let RA=J1; "
  167.    A$=A$+"If RA=1 Jump B; If RA=17 Jump B; "
  168.    A$=A$+"If RA=9 Jump C; If RA=25 Jump C; "
  169.    A$=A$+"If RA=8 Jump D; If RA=24 Jump D; "
  170.    A$=A$+"If RA=10 Jump E; If RA=26 Jump E; "
  171.    A$=A$+"If RA=2 Jump F; If RA=18 Jump F; "
  172.    A$=A$+"If RA=6 Jump G; If RA=22 Jump G; "
  173.    A$=A$+"If RA=4 Jump H; If RA=20 Jump H; "
  174.    A$=A$+"If RA=5 Jump I; If RA=21 Jump I; "
  175.    A$=A$+"J: Let Y=Y+1; Jump A; "
  176.    A$=A$+"B: Let Y=Y-2; Jump A; "
  177.    A$=A$+"C: A0,(1,1); Let Y=Y-2; Let X=X+2; Let RD=1; Jump A; "
  178.    A$=A$+"D: A0,(1,1); Let X=X+2; Let RD=1; Jump J; "
  179.    A$=A$+"E: A0,(1,1); Let X=X+2; Let Y=Y+1; Let RD=1; Jump J; "
  180.    A$=A$+"F: Let Y=Y+1; Jump J; "
  181.    A$=A$+"G: A0,(2,1); Let X=X-2; Let Y=Y+1; Let RD=2; Jump J; "
  182.    A$=A$+"H: A0,(2,1); Let X=X-2; Let RD=2; Jump J; "
  183.    A$=A$+"I: A0,(2,1); Let X=X-2; Let Y=Y-1; Let RD=2; Jump A; "
  184.    A$=A$+"L: Let Y=210; Jump K; "
  185.    A$=A$+"M: Let Y=24; Jump P; "
  186.    A$=A$+"N: Let X=18; Jump Q; "
  187.    A$=A$+"O: Let X=208; Jump R;"
  188.    Amal 15,A$ : Amal On 15
  189. End Proc
  190. Procedure LASER
  191.    Bob 4,-50,-50,3 : Channel 4 To Bob 4
  192.    A$="If RD=1 Jump A; "
  193.    A$=A$+"A0,(3,1); Let X=RB-10; Let Y=RC+9; B: P; Let X=X-4; If X>14 Jump B; Jump C; "
  194.    A$=A$+"A: A0,(4,1); Let X=RB+20; Let Y=RC+9; D: P; Let X=X+4; If X<222 Jump D; "
  195.    A$=A$+"C: A1,(27,1); "
  196.    Amal 4,A$ : Amal On 4 : Sam Play 1,5,20000
  197. End Proc
  198. Procedure DIAMOND
  199.    Shared DMND
  200.    If DMND=1 Then DMND=2 Else DMND=1
  201.    Bob 5,-50,-50,5 : Channel 5 To Bob 5
  202.    If DMND=1 Then A$="Loop: A0,(5,4)(6,4)(7,4); Let Y=-50; Let X=75; M 0,0,320; M 0,267,267; "
  203.    If DMND=1 Then A$=A$+"A1,(5,4)(28,4)(29,4)(30,4)(31,4)(32,4)(33,4)(34,4)(35,4)(27,1);M 0,0,36; "
  204.    If DMND=1 Then A$=A$+"Let Y=-50; Let X=160; A0,(5,4)(6,4)(7,4); M 0,0,250; M 0,267,267;"
  205.    If DMND=1 Then A$=A$+"A1,(5,4)(28,4)(29,4)(30,4)(31,4)(32,4)(33,4)(34,4)(35,4)(27,1);M 0,0,36; Jump Loop"
  206.    If DMND=2 Then A$="Loop: A0,(5,4)(6,4)(7,4); Let Y=-50; Let X=160; M 0,0,320; M 0,267,267; "
  207.    If DMND=2 Then A$=A$+"A1,(5,4)(28,4)(29,4)(30,4)(31,4)(32,4)(33,4)(34,4)(35,4)(27,1);M 0,0,36; "
  208.    If DMND=2 Then A$=A$+"Let Y=-50; Let X=75; A0,(5,4)(6,4)(7,4); M 0,0,250; M 0,267,267;"
  209.    If DMND=2 Then A$=A$+"A1,(5,4)(28,4)(29,4)(30,4)(31,4)(32,4)(33,4)(34,4)(35,4)(27,1);M 0,0,36; Jump Loop"
  210.    Amal 5,A$ : Amal On 5
  211. End Proc
  212. Procedure CATCHDIAMOND
  213.    Shared CAUGHT
  214.    Amal Off 5 : Channel 5 To Bob 5
  215.    A$="A1,(5,4); Loop: Let X=RB+4; Let Y=RC+22; If X=54 Jump B; If X=55 Jump B; If X=180 Jump B; If X=181 Jump B; P ;Jump Loop; "
  216.    A$=A$+"B: M 0,3,1; A0,(5,4)(6,4)(7,4); M 0,300,300; "
  217.    Amal 5,A$ : Amal On 5 : Sam Play 6,1 : CAUGHT=1 : Wait 3
  218. End Proc
  219. Procedure DIAMONDCRUMBLE
  220.    Shared CAUGHT,DMND
  221.    Amal Off 5 : Channel 5 To Bob 5
  222.    A$="A1,(5,4)(28,4)(29,4)(30,4)(31,4)(32,4)(33,4)(34,4)(35,4)(27,1);M 0,0,36;"
  223.    Amal 5,A$ : Amal On 5 : Sam Play 1,4,10000 : Wait 2 : CAUGHT=2
  224.    If DMND=1 Then DMND=2 Else DMND=1
  225. End Proc
  226. Procedure MEANIES1
  227.    Shared C$,D$,E$,F$,G$,H$
  228.    For T=1 To 5 : Bob T+5,(40*T),30,27 : Channel T+5 To Bob T+5 : Next T
  229.    C$="Let X=40; Let Y=30; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(41,4)(42,4)(43,4)(44,4)(43,4)(42,4); Loop: M 0,170,170; M 0,-170,170; P; Jump Loop"
  230.    D$="Let X=80; Let Y=30; M 0,0,40; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(41,4)(42,4)(43,4)(44,4)(43,4)(42,4); Loop: M 0,170,170; M 0,-170,170; P; Jump Loop"
  231.    E$="Let X=120; Let Y=30; M 0,0,80; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(41,4)(42,4)(43,4)(44,4)(43,4)(42,4); Loop: M 0,170,170; M 0,-170,170; P; Jump Loop"
  232.    F$="Let X=160; Let Y=30; M 0,0,120; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(41,4)(42,4)(43,4)(44,4)(43,4)(42,4); Loop: M 0,170,170; M 0,-170,170; P; Jump Loop"
  233.    G$="Let X=200; Let Y=30; M 0,0,160; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(41,4)(42,4)(43,4)(44,4)(43,4)(42,4); Loop: M 0,170,170; M 0,-170,170; P; Jump Loop"
  234.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$ : For T=6 To 10 : Amal On T : Next T
  235. End Proc
  236. Procedure MEANIES2
  237.    Shared C$,D$,E$,F$,G$,H$
  238.    For T=1 To 5 : Bob T+5,15,(40*T),27 : Channel T+5 To Bob T+5 : Next T
  239.    C$="Let Y=36; Let X=18; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(45,3)(46,3)(47,3)(48,3)(49,3)(50,3)(51,3)(52,3); Loop: M 190,0,190; M-190,0,190; Jump Loop"
  240.    D$="Let Y=76; Let X=18; M 0,0,40; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(45,3)(46,3)(47,3)(48,3)(49,3)(50,3)(51,3)(52,3); Loop: M 190,0,190; M-190,0,190; Jump Loop"
  241.    E$="Let Y=116; Let X=18; M 0,0,80; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(45,3)(46,3)(47,3)(48,3)(49,3)(50,3)(51,3)(52,3); Loop: M 190,0,190; M-190,0,190; Jump Loop"
  242.    F$="Let Y=156; Let X=18; M 0,0,120;A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(45,3)(46,3)(47,3)(48,3)(49,3)(50,3)(51,3)(52,3); Loop: M 190,0,190; M-190,0,190; Jump Loop"
  243.    G$="Let Y=196; Let X=18; M 0,0,160;A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(45,3)(46,3)(47,3)(48,3)(49,3)(50,3)(51,3)(52,3); Loop: M 190,0,190; M-190,0,190; Jump Loop"
  244.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  245.    For T=6 To 10 : Amal On T : Next T
  246. End Proc
  247. Procedure MEANIES3
  248.    Shared C$,D$,E$,F$,G$,H$
  249.    For T=1 To 5 : Bob T+5,(40*T),30,27 : Channel T+5 To Bob T+5 : Next T
  250.    C$="Let X=40; Let Y=30; Loop: A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 30; Next R0; Let Y=30; For R0=1 To 30; Next R0; A0,(53,4)(54,4)(55,4)(56,4)(55,4)(54,4); M 0,170,170; P; Jump Loop"
  251.    D$="Let X=80; Let Y=30; M 0,0,40; Loop: A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 30; Next R0; Let Y=30; For R0=1 To 30; Next R0; A0,(53,4)(54,4)(55,4)(56,4)(55,4)(54,4);  M 0,170,170; P; Jump Loop"
  252.    E$="Let X=120; Let Y=30; M 0,0,80; Loop: A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 30; Next R0; Let Y=30; For R0=1 To 30; Next R0; A0,(53,4)(54,4)(55,4)(56,4)(55,4)(54,4); M 0,170,170; P; Jump Loop"
  253.    F$="Let X=160; Let Y=30; M 0,0,120; Loop: A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 30; Next R0; Let Y=30; For R0=1 To 30; Next R0; A0,(53,4)(54,4)(55,4)(56,4)(55,4)(54,4); M 0,170,170; P; Jump Loop"
  254.    G$="Let X=200; Let Y=30; M 0,0,160; Loop: A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 30; Next R0; Let Y=30; For R0=1 To 30; Next R0; A0,(53,4)(54,4)(55,4)(56,4)(55,4)(54,4); M 0,170,170; P; Jump Loop"
  255.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  256.    For T=6 To 10 : Amal On T : Next T
  257. End Proc
  258. Procedure MEANIES4
  259.    Shared C$,D$,E$,F$,G$,H$
  260.    Bob 3,108,-56,57 : Channel 3 To Bob 3
  261.    A$="A0,(57,30)(58,30)(57,30)(59,30);For R0=1 To 210; Let Y=Y+1; Let RE=X; Let RF=Y; P; Next R0; Loop: "
  262.    A$=A$+"For R0=1 To 100; Let Y=Y-1; Let RF=Y; Let RE=X; P; P;Next R0; "
  263.    A$=A$+"For R0=1 To 50; Let Y=Y+1; Let RE=X; Let RF=Y; P; P; Next R0; "
  264.    A$=A$+"For R0=1 To 50; Let X=X+1; Let RE=X; Let RF=Y; P; P; Next R0; "
  265.    A$=A$+"For R0=1 To 100; Let X=X-1; Let RE=X; Let RF=Y; P; P; Next R0; "
  266.    A$=A$+"For R0=1 To 50; Let X=X+1; Let RE=X; Let RF=Y; P; P; Next R0; "
  267.    A$=A$+"For R0=1 To 50; Let Y=Y-1; Let RE=X; Let RF=Y; P; P; Next R0; "
  268.    A$=A$+"For R0=1 To 100; Let Y=Y+1; Let RE=X; Let RF=Y; P; P; Next R0; Jump Loop"
  269.    Amal 3,A$ : Amal On 3
  270.    For T=6 To 10 : Bob T,-50,-50,60 : Channel T To Bob T : Next T
  271.    C$="A0,(60,1); Loop: Let X=14+RE; Let Y=23+RF; M 200,-200,100; For R0=1 To 10; P; Next R0; Jump Loop"
  272.    D$="A0,(61,1); Loop: Let X=14+RE; Let Y=23+RF; M 200,200,100; For R0=1 To 20; P; Next R0; Jump Loop"
  273.    E$="A0,(62,1); Loop: Let X=14+RE; Let Y=23+RF; M -200,200,100; For R0=1 To 30; P; Next R0; Jump Loop"
  274.    F$="A0,(63,1); Loop: Let X=14+RE; Let Y=23+RF; M -200,-200,100; For R0=1 To 40; Next R0; Jump Loop"
  275.    G$="A0,(64,1); Loop: Let X=14+RE; Let Y=23+RF; M 0,-200,100; Let X=14+RE; Let Y=23+RF; M 0,200,100; Let X=14+RE; Let Y=23+RF; M -200,0,100; Let X=14+RE; Let Y=23+RF; M 200,0,100; Jump Loop"
  276.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  277.    For T=6 To 10 : Amal On T : Next T
  278. End Proc
  279. Procedure MEANIES5
  280.    Shared C$,D$,E$,F$,G$,H$
  281.    Bob 3,108,-56,57 : Channel 3 To Bob 3
  282.    A$="A0,(65,30)(66,30)(65,30)(67,30);For R0=1 To 110; Let Y=Y+1; Let RE=X; Let RF=Y; P; Next R0; Loop: "
  283.    A$=A$+"For R0=1 To 25; Let X=X+1; Let RE=X; Let RF=Y; P; Next R0; "
  284.    A$=A$+"For R0=1 To 25; Let X=X+1; Let Y=Y+1; Let RE=X; Let RF=Y; P; Next R0; "
  285.    A$=A$+"For R0=1 To 50; Let Y=Y+1; Let RE=X; Let RF=Y; P; Next R0; "
  286.    A$=A$+"For R0=1 To 25; Let X=X-1; Let Y=Y+1; Let RE=X; Let RF=Y; P; Next R0; "
  287.    A$=A$+"For R0=1 To 50; Let X=X-1; Let RE=X; Let RF=Y; P; Next R0; "
  288.    A$=A$+"For R0=1 To 25; Let X=X-1; Let Y=Y-1; Let RE=X; Let RF=Y; P; Next R0; "
  289.    A$=A$+"For R0=1 To 50; Let Y=Y-1; Let RE=X; Let RF=Y; P; Next R0; "
  290.    A$=A$+"For R0=1 To 25; Let X=X+1; Let Y=Y-1; Let RE=X; Let RF=Y; P; Next R0; "
  291.    A$=A$+"For R0=1 To 25; Let X=X+1; Let RE=X; Let RF=Y; P; Next R0; Jump Loop"
  292.    Amal 3,A$ : Amal On 3
  293.    For T=6 To 10 : Bob T,-50,-50,60 : Channel T To Bob T : Next T
  294.    H$="Let X=-50; Let Y=-50; M 0,0,200; "
  295.    C$=H$+"A0,(60,1); Loop: Let X=-50; Let Y=-50; M 0,0,20; Let X=14+RE; Let Y=23+RF; M 0,30,30; For R0=1 To 2; M -10,0,10;M -20,-20,20;M 0,-20,10;M 20,-20,20; M 20,0,20; M 20,20,20; M 0,20,10; M -20,20,20; M -10,0,10; Next R0; M 0,-200,100;Jump Loop"
  296.    D$=H$+"A0,(61,1); Loop: Let X=-50; Let Y=-50; M 0,0,40; Let X=14+RE; Let Y=23+RF; M 0,30,30; For R0=1 To 2; M -10,0,10;M -20,-20,20;M 0,-20,10;M 20,-20,20; M 20,0,20; M 20,20,20; M 0,20,10; M -20,20,20; M -10,0,10; Next R0; M 0,-200,100;Jump Loop"
  297.    E$=H$+"A0,(62,1); Loop:  Let X=-50; Let Y=-50; M 0,0,60; Let X=14+RE; Let Y=23+RF; M 0,30,30; For R0=1 To 2; M -10,0,10;M -20,-20,20;M 0,-20,10;M 20,-20,20; M 20,0,20; M 20,20,20; M 0,20,10; M -20,20,20; M -10,0,10;Next R0; M 0,-200,100;Jump Loop"
  298.    F$=H$+"A0,(63,1); Loop: Let X=-50; Let Y=-50; M 0,0,80; Let X=14+RE; Let Y=23+RF; M 0,30,30; For R0=1 To 2; M -10,0,10;M -20,-20,20;M 0,-20,10;M 20,-20,20; M 20,0,20; M 20,20,20; M 0,20,10; M -20,20,20; M -10,0,10; Next R0; M 0,-200,100;Jump Loop"
  299.    G$=H$+"A0,(64,1); Loop: Let X=-50; Let Y=-50; M 0,0,100; Let X=14+RE; Let Y=23+RF; M 0,30,30; For R0=1 To 2; M -10,0,10;M -20,-20,20;M 0,-20,10;M 20,-20,20; M 20,0,20; M 20,20,20; M 0,20,10; M -20,20,20; M -10,0,10;Next R0; M 0,-200,100;Jump Loop"
  300.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  301.    For T=6 To 10 : Amal On T : Next T
  302. End Proc
  303. Procedure MEANIES6
  304.    Shared C$,D$,E$,F$,G$,H$
  305.    For T=6 To 10 : Bob T,-50,-50,75 : Channel T To Bob T : Next T
  306.    H$="A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R2=1 To R3; Next R2; "
  307.    H$=H$+"A0,(75,3)(76,3)(77,6)(78,6)(77,6)(79,6)(77,3)(76,3)(75,10); "
  308.    H$=H$+"Loop: P; Let X=X+R0; Let Y=Y+R1; If X<18 Jump A; "
  309.    H$=H$+"If X>210 Jump B; If Y<24 Jump C; If Y>210 Jump D; Jump Loop; "
  310.    H$=H$+"A: Let R0=1; Jump Loop; B: Let R0=-1; Jump Loop; C: Let R1=1; Jump Loop; D: Let R1=-1; Jump Loop; "
  311.    C$="Let R3=30; Let R0=1; Let R1=1; Let X=40; Let Y=50; "+H$
  312.    D$="Let R3=45; Let R0=-1; Let R1=-1; Let X=80; Let Y=50; "+H$
  313.    E$="Let R3=60; Let R0=1; Let R1=-1; Let X=120; Let Y=50; "+H$
  314.    F$="Let R3=45; Let R0=-1; Let R1=1; Let X=160; Let Y=50; "+H$
  315.    G$="Let R3=30; Let R0=1; Let R1=1; Let X=200; Let Y=50; "+H$
  316.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  317.    For T=6 To 10 : Amal On T : Next T
  318. End Proc
  319. Procedure MEANIES7
  320.    Shared C$,D$,E$,F$,G$,H$
  321.    For T=6 To 10 : Bob T,-50,-50,71 : Channel T To Bob T : Next T
  322.    H$="A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R2=1 To R3; Next R2; "
  323.    H$=H$+"A0,(71,4)(72,4)(73,4)(74,4)(73,4)(72,4); "
  324.    H$=H$+"Loop: P; Let X=X+R0; Let Y=Y+R1; If X<18 Jump A; "
  325.    H$=H$+"If X>210 Jump B; If Y<24 Jump C; If Y>210 Jump D; Jump Loop; "
  326.    H$=H$+"A: Let R0=2; M 0,0,20; Jump Loop; B: Let R0=-2; M 0,0,20; Jump Loop; C: Let R1=1; Jump Loop; D: Let R1=-1; Jump Loop; "
  327.    C$="Let R3=30; Let R0=2; Let R1=1; Let X=40; Let Y=50; "+H$
  328.    D$="Let R3=45; Let R0=-2; Let R1=-1; Let X=80; Let Y=50; "+H$
  329.    E$="Let R3=60; Let R0=2; Let R1=-1; Let X=120; Let Y=50; "+H$
  330.    F$="Let R3=45; Let R0=-2; Let R1=1; Let X=160; Let Y=50; "+H$
  331.    G$="Let R3=30; Let R0=2; Let R1=1; Let X=200; Let Y=50; "+H$
  332.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  333.    For T=6 To 10 : Amal On T : Next T
  334. End Proc
  335. Procedure MEANIES8
  336.    Shared C$,D$,E$,F$,G$,H$
  337.    Bob 3,108,-56,57
  338.    Channel 3 To Bob 3
  339.    A$="Let RE=108; A0,(68,30)(69,30)(68,30)(70,30);For R0=1 To 120; Let Y=Y+1; Let RF=Y; P; Next R0; "
  340.    A$=A$+"For R0=1 To 80; Let X=X+1; Let RE=X; Next R0; Loop: "
  341.    A$=A$+"For R0=1 To 170; Let X=X-1; Let RE=X; Next R0; "
  342.    A$=A$+"For R0=1 To 170; Let X=X+1; Let RE=X; Next R0; Jump Loop; "
  343.    Amal 3,A$ : Amal On 3
  344.    For T=6 To 10 : Bob T,-50,-50,60 : Channel T To Bob T : Next T
  345.    H$="Let X=RE+14; Let Y=RF+23; M 0,132,43; M 0,-300,150; Jump Loop"
  346.    C$="A: If RE=108 Jump A; A0,(60,1); Loop: Let X=-50; Let Y=-50; M 0,0,10; "+H$
  347.    D$="A: If RE=108 Jump A; A0,(61,1); Loop: Let X=-50; Let Y=-50; M 0,0,30; "+H$
  348.    E$="A: If RE=108 Jump A; A0,(62,1); Loop: Let X=-50; Let Y=-50; M 0,0,50; "+H$
  349.    F$="A: If RE=108 Jump A; A0,(63,1); Loop: Let X=-50; Let Y=-50; M 0,0,70; "+H$
  350.    G$="A: If RE=108 Jump A; A0,(64,1); Loop: Let X=-50; Let Y=-50; M 0,0,90; "+H$
  351.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  352.    For T=6 To 10 : Amal On T : Next T
  353. End Proc
  354. Procedure MEANIES9
  355.    Shared C$,D$,E$,F$,G$,H$
  356.    For T=6 To 10 : Bob T,-50,-50,60 : Channel T To Bob T : Next T
  357.    H$="Let X=200; Let Y=36; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; A0,(119,3)(120,3)(121,3)(122,3)(123,3)(122,3)(121,3)(120,3); "
  358.    H$=H$+"M -170,0,85; M 0,40,40; M 170,0,85; M 0,40,40; M -170,0,85; M 0,40,40; M 170,0,85; M 0,40,40; M -170,0,85; "
  359.    H$=H$+"A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; Jump Loop; "
  360.    C$="Loop: Let X=-50; Let Y=-50; M 0,0,20;"+H$
  361.    D$="Loop: Let X=-50; Let Y=-50; M 0,0,60;"+H$
  362.    E$="Loop: Let X=-50; Let Y=-50; M 0,0,100;"+H$
  363.    F$="Loop: Let X=-50; Let Y=-50; M 0,0,140;"+H$
  364.    G$="Loop: Let X=-50; Let Y=-50; M 0,0,180;"+H$
  365.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  366.    For T=6 To 10 : Amal On T : Next T
  367. End Proc
  368. Procedure MUMMY
  369.    Shared C$,D$,E$,F$,G$,H$
  370.    Bob 13,105,-80,90
  371.    Channel 13 To Bob 13
  372.    A$="A0,(90,10)(91,10)(92,10)(91,10)(90,10)(93,10)(94,10)(93,10); M 0,100,200; "
  373.    A$=A$+"Loop: Let RP=X+10; Let RQ=Y+15; P; P; If RB-10>X Jump A; If RB-10<X Jump B; E: If RC-15<Y Jump C; If RC-15>Y Jump D; Jump Loop; "
  374.    A$=A$+"A: Let X=X+1; Jump E; "
  375.    A$=A$+"B: Let X=X-1; Jump E; "
  376.    A$=A$+"C: Let Y=Y-1; Jump Loop; "
  377.    A$=A$+"D: Let Y=Y+1; Jump Loop; "
  378.    Amal 13,A$
  379.    Amal On 13
  380.    For T=6 To 10 : Bob T,-50,-50,60 : Channel T To Bob T : Next T
  381.    H$="Let R0=RB-X; Let R1=RC-Y; Let R2=R0; Let R3=R1; If R2<0 Jump A; C: If R3<0 Jump B; Jump D; "
  382.    H$=H$+"A: Let R2=0-R2; Jump C; B: Let R3=0-R3; "
  383.    H$=H$+"D: If R3>R2 Jump E; M R0*2,R1*2,R2; Jump Loop"
  384.    H$=H$+"E: M R0*2,R1*2,R3; Jump Loop"
  385.    C$="M 0,0,210; Loop: Let X=-50; Let Y=-50; M 0,0,20; Let X=RP; Let Y=RQ; A0,(101,1); "+H$
  386.    D$="M 0,0,210; Loop: Let X=-50; Let Y=-50; M 0,0,40; Let X=RP; Let Y=RQ; A0,(101,1); "+H$
  387.    E$="M 0,0,210; Loop: Let X=-50; Let Y=-50; M 0,0,60; Let X=RP; Let Y=RQ; A0,(101,1); "+H$
  388.    F$="M 0,0,210; Loop: Let X=-50; Let Y=-50; M 0,0,80; Let X=RP; Let Y=RQ; A0,(101,1); "+H$
  389.    G$="M 0,0,210; Loop: Let X=-50; Let Y=-50; M 0,0,100; Let X=RP; Let Y=RQ; A0,(101,1); "+H$
  390.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  391.    For T=6 To 10 : Amal On T : Next T
  392. End Proc
  393. Procedure MEANIES10
  394.    Shared C$,D$,E$,F$,G$,H$
  395.    For T=6 To 10 : Bob T,-50,-50,60 : Channel T To Bob T : Next T
  396.    H$="A0,(114,3)(115,3)(116,3)(117,3)(118,3)(117,3)(116,3)(115,2); M 10,-10,10; M 20,20,20; For R0=1 To 4; M 20,-20,20; M 20,20,20; Next R0; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; Jump Loop "
  397.    I$="A0,(114,3)(115,3)(116,3)(117,3)(118,3)(117,3)(116,3)(115,2); M -10,-10,10; M -20,20,20; For R0=1 To 4; M -20,-20,20; M -20,20,20; Next R0; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; Jump Loop "
  398.    C$="Loop: Let X=-50; Let Y=-50; M 0,0,10; Let Y=36; Let X=18; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; "+H$
  399.    D$="Loop: Let X=-50; Let Y=-50; M 0,0,20; Let Y=76; Let X=208; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; "+I$
  400.    E$="Loop: Let X=-50; Let Y=-50; M 0,0,30; Let Y=116; Let X=18; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; "+H$
  401.    F$="Loop: Let X=-50; Let Y=-50; M 0,0,40; Let Y=156; Let X=208; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; "+I$
  402.    G$="Loop: Let X=-50; Let Y=-50; M 0,0,50; Let Y=196; Let X=18; A0,(36,3)(37,3)(38,3)(39,3)(40,3); For R0=1 To 45; Next R0; "+H$
  403.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  404.    For T=6 To 10 : Amal On T : Next T
  405. End Proc
  406. Procedure SHEETDONE
  407.    Shared SH,LEV,X1,Y1,GATE1,GATE2
  408.    Amal Off 15 : Channel 15 To Bob 15
  409.    Amal 15,"Let RH=X; M 0,50,50"
  410.    Amal On 15 : Wait 2 : X=Amreg(7)
  411.    If X<100 Then L=-1 Else L=0
  412.    Y1=Y1+15 : If L=-1 Then X1=X1-9 Else X1=X1+9
  413.    While Chanmv(15) : Wend 
  414.    For T=6 To 10 : Amal Off T : Bob Off T : Next T
  415.    GATE1=3 : GATE2=3 : LEV=LEV+1 : SH=SH+LEV+L : If SH>46 Then SH=46
  416.    Shift Off : Fade 1 : Wait 20
  417. End Proc
  418. Procedure DISP
  419.    Shared UNP
  420.    Shift Off : Unpack 15 To 1 : Wait 10 : Unpack UNP To 0 : Wait 10 : Screen Close 1
  421. End Proc
  422. Procedure REDDY
  423.    Double Buffer 
  424.    Bob 1,50,150,86 : Bob 2,330,155,80 : Channel 2 To Bob 2
  425.    Amal 2,"A0,(80,3)(81,3)(82,3)(83,3)(84,3)(85,3)(102,3)(103,3)(104,3)(105,3)(106,3)(107,3); M -270,0,225;" : Amal On 2 : Wait 10
  426.    While Chanmv(2) : Wend 
  427.    Amal Off 2 : Bob 1,50,150,2 : Bob 2,60,120,108 : Wait 100 : Channel 1 To Bob 1
  428.    Amal 1,"A0,(2,1); M 0,-10,20; M 0,-10,10; M 0,-12,8; M 0,-140,70; "
  429.    Amal On 1 : Bob Off 2 : Wait 5
  430.    While Chanmv(1) : Wend 
  431.    Amal Off 1 : Bob Off 1
  432. End Proc
  433. Procedure MUMMYDIE
  434.    Shared SCORE
  435.    SCORE=SCORE+10000
  436.    For T=6 To 10 : Amal Off T : Next T
  437.    For T=6 To 10 : Bob T,-50,-50,27 : Channel T To Bob T : Next T
  438.    C$="Let X=RP; Let Y=RQ; A2,(27,3)(13,3)(14,3)(15,3)(16,3)(17,3)(18,3)(19,3)(20,3)(21,3)(22,3)(23,3)(24,3)(25,3)(26,3)(145,20)(27,3); "
  439.    D$="Let X=RP-12; Let Y=RQ-12; A2,(27,15)(13,3)(14,3)(15,3)(16,3)(17,3)(18,3)(19,3)(20,3)(21,3)(22,3)(23,3)(24,3)(25,3)(26,3)(145,20)(27,3); "
  440.    E$="Let X=RP+12; Let Y=RQ+12; A2,(27,30)(13,3)(14,3)(15,3)(16,3)(17,3)(18,3)(19,3)(20,3)(21,3)(22,3)(23,3)(24,3)(25,3)(26,3)(145,20)(27,3); "
  441.    F$="Let X=RP+12; Let Y=RQ-12; A2,(27,45)(13,3)(14,3)(15,3)(16,3)(17,3)(18,3)(19,3)(20,3)(21,3)(22,3)(23,3)(24,3)(25,3)(26,3)(145,20)(27,3); "
  442.    G$="Let X=RP-12; Let Y=RQ+12; A2,(27,60)(13,3)(14,3)(15,3)(16,3)(17,3)(18,3)(19,3)(20,3)(21,3)(22,3)(23,3)(24,3)(25,3)(26,3)(145,20)(27,3); "
  443.    Amal 6,C$ : Amal 7,D$ : Amal 8,E$ : Amal 9,F$ : Amal 10,G$
  444.    For T=6 To 10 : Amal On T : Next T : Wait 2 : Amal Off 13 : Bob Off 13 : While Chanan(10) : Sam Play 6,4,4000 : Wait 20 : Sam Play 9,4,4000 : Wait 10 : Wend 
  445.    Amal Off 15
  446.    Bob 13,111,143,27
  447.    Channel 13 To Bob 13
  448.    Amal 13,"A20,(27,2)(95,2); M 0,0,80; A1,(95,50)(96,5)(97,5)(98,5)(99,5)(100,5); M 0,0,100 "
  449.    Amal On 13 : Wait 100
  450.    While Chanmv(13) : Wend 
  451.    Wait 100 : Fade 2 : Wait 30 : For T=0 To 15 : Amal Off T : Bob Off T : Next T
  452.    Music Off : Mvolume 63 : Wait 10 : Unpack 15 To 1 : Wait 10 : Unpack 15 To 0 : Screen Close 1 : Load "Pdisk2:Music3.ABK" : Load Iff "Pdisk2:GameComplete" : Music 1 : Double Buffer 
  453.    Wait 100 : Bob 1,90,70,134 : Channel 1 To Bob 1 : Amal 1,"A0,(134,1); M 250,0,250; M 0,-5,5; A0,(133,1); M -420,0,210;"
  454.    Amal On 1 : Wait 30 : While Chanmv(1) : Wend : Wait 200
  455.    Fade 4,,,,,,,,,,,,,,,,,$0,$1,$2,$3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F : Wait 500
  456.    Fade 2 : Wait 30 : Amal Off 1 : Bob Off 1 : Unpack 15 To 1 : Wait 10 : Unpack 15 To 0 : Screen Close 1 : Load Iff "Pdisk2:GameComplete2"
  457.    Curs Off : Locate 0,19 : Pen 3 : Paper 0 : Ink 7 : Paint 1,1,1 : A$="Score"+Str$(SCORE) : Centre A$
  458.    While Fire(1) : Wend 
  459.    While Not Fire(1) : Wend 
  460.    Fade 2 : For T=63 To 0 Step -1 : Mvolume T : Wait 1 : Next T : Music Off : Mvolume 63 : For T=0 To 15 : Amal Off T : Bob Off T : Next T
  461. End Proc
  462. Procedure MAP
  463.    Shared SH,X1,Y1,SCORE,LIVES
  464.    Unpack 15 To 1 : Unpack 4 To 0
  465.    Ink 11,12 : A$="Score"+Str$(SCORE)+"  Lives"+Str$(LIVES) : Text 55,248,A$
  466.    For T=1 To 5
  467.       If SH=46 Then Ink 16 Else Ink 6
  468.       Paint X1,Y1,1 : Sam Play 6,1,20000 : Wait 5
  469.       Ink 31 : Paint X1,Y1,1 : Sam Play 9,1,15000 : Wait 5
  470.    Next T
  471.    Fade 1 : Wait 20
  472. End Proc
  473. GAMEOVER:
  474. UNP=15 : DISP
  475. Music Off : Mvolume 63 : Load "Pdisk2:Music2.ABK" : Double Buffer 
  476. Music 1 : AN=0
  477. Curs Off : Locate 0,1 : Pen 3 : Paper 0 : Ink 7 : Paint 1,1,1 : A$="Score"+Str$(SCORE) : Centre A$
  478. Bob 1,115,-50,131 : Channel 1 To Bob 1 : Amal 1,"M 0,200,100" : Amal On 1
  479. Bob 6,145,300,132 : Channel 6 To Bob 6 : Amal 6,"M 0,-180,270" : Amal On 6
  480. For T=2 To 5 : Bob T,(T*30)+44,80,128 : Channel T To Bob T : Next T
  481. Amal 2,"M 0,0,5; A0,(128,4)(129,4)(130,4)(129,4); Loop: M 0,-20,20; M 0,20,20; Jump Loop"
  482. Amal 3,"M 0,0,10; A0,(128,4)(129,4)(130,4)(129,4); Loop: M 0,-20,20; M 0,20,20; Jump Loop"
  483. Amal 4,"M 0,0,15; A0,(128,4)(129,4)(130,4)(129,4); Loop: M 0,-20,20; M 0,20,20; Jump Loop"
  484. Amal 5,"M 0,0,20; A0,(128,4)(129,4)(130,4)(129,4); Loop: M 0,-20,20; M 0,20,20; Jump Loop"
  485. For T=2 To 5 : Amal On T : Next T
  486. While Chanmv(6) : If Fire(1) Then Goto FPRESSED
  487. Wend 
  488. For T=1 To 250 : Wait 1 : If Fire(1) Then Goto FPRESSED
  489. Next T
  490. FPRESSED:
  491. Fade 2 : For T=63 To 0 Step -1 : Mvolume T : Wait 1 : Next T : Music Off : Mvolume 63 : For T=1 To 6 : Amal Off T : Bob Off T : Next T
  492. For T=0 To 15 : Amal Off T : Bob Off T : Next T
  493. Goto HEREWEGO
  494. RULES:
  495. Shift Off : Fade 2 : For T=63 To 0 Step -2 : Mvolume T : Wait 1 : Next T : For T=0 To 15 : Amal Off T : Bob Off T : Next T : Music Off : Mvolume 63
  496. Unpack 15 To 0
  497. Load Iff "Pdisk2:Instructions"
  498. While Not Fire(1) : Wend 
  499. Fade 2 : Wait 30
  500. Goto HEREWEGO